-- card: 3012 from stack: in
-- bmap block id: 3980
-- flags: 4000
-- background id: 2777
-- name: 
----- HyperTalk script -----
on openStack
  global track
  hide menubar
  put 0 into track
  set hilite of button "Track A" to true
  set hilite of button "Track B" to false
end openStack



-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=344 top=290 right=321 bottom=377
-- title width / last selected line: 0
-- icon id / first selected line: 1011 / 1011
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  go home
end mouseUp




-- part 4 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=263 top=99 right=119 bottom=333
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: RECORD
----- HyperTalk script -----
on mouseUp
  global track
  set hilite of button "Record" to true
  put card field "Time" * 1000 into time
  answer "   Start MIDI recording ?" with "Cancel" or "OK"
  if it is "OK" then
    MIDI in,time
    if track is 0 then
      put the result into card field "Data A"
    else
      put the result into card field "Data B"
    end if
  end if
  set hilite of button "Record" to false
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=263 top=127 right=146 bottom=332
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PLAY
----- HyperTalk script -----
on mouseUp
  global track
  set hilite of button "Play" to true
  if track is 0 then
    put card field "Data A" into data
  else
    put card field "Data B" into data
  end if
  MIDI out,data
  MIDI out,"176 123 0"
  set hilite of button "Play" to false
end mouseUp



-- part 8 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=360 top=100 right=117 bottom=410
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Time


-- part 9 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=42 top=99 right=305 bottom=140
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Data A


-- part 10 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=150 top=99 right=306 bottom=245
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Data B


-- part 11 (button)
-- low flags: 00
-- high flags: E002
-- rect: left=51 top=77 right=93 bottom=121
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Track A
----- HyperTalk script -----
on mouseUp
  global track
  put 0 into track
  set hilite of button "Track B" to false
  set hilite of button "Track A" to true
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=156 top=77 right=93 bottom=226
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Track B
----- HyperTalk script -----
on mouseUp
  global track
  put 1 into track
  set hilite of button "Track A" to false
  set hilite of button "Track B" to true
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=341 top=93 right=109 bottom=360
-- title width / last selected line: 0
-- icon id / first selected line: 16692 / 16692
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Up
----- HyperTalk script -----
on mouseStillDown
  add 1 to card field Time
end mouseStillDown



-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=341 top=108 right=124 bottom=359
-- title width / last selected line: 0
-- icon id / first selected line: 3584 / 3584
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Down
----- HyperTalk script -----
on mouseStillDown
  subtract 1 from card field Time
end mouseStillDown



-- part 15 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=346 top=78 right=93 bottom=437
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 


-- part 19 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=263 top=154 right=173 bottom=332
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PROGRAM
----- HyperTalk script -----
on mouseUp
  ask " Enter program number !"
  MIDI out,"192"
  MIDI out,it
end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=256 top=222 right=280 bottom=333
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  visual effect dissolve
  go to next card
end mouseUp



-- part contents for card part 8
----- text -----
20

-- part contents for card part 15
----- text -----
< Recording Limit >

-- part contents for card part 9
----- text -----
89232 89153 89120 90949 90916 92488 92708 151952 151880 151808 152133 152064 152641 152576 287632 287555 287514 288583 288548 289354 289319 335760 335687 335616 336970 336896 338243 338176 484496 484421 484377 486216 486176 487244 487201 543888 543820 543744 545096 545280 550981 550912 678544 678467 678427 680263 680226 682314 682281 742032 741962 741888 744519 744448 749891 749824 897168 897089 897052 898117 898083 899656 899624 956368 956161 957442 958979 961540 962821 964358 966151 968201 969738 971019 972301 974094 976399 977680 979408 979218 981779 983060 985877 988950 993815 1006358 1008661 1009939 1011218 1011728 1012750 1014029 1014283 1015305 1016581 1016835 1018113 1019392 1038800 1038593 1039618 1040899 1041156 1042181 1043463 1043977 1044746 1046028 1046542 1047567 1048850 1049363 1050132 1051414 1051927 1052952 1054233 1055515 1057308 1059869 1063888 1063710 1074461 1074716 1077019 1077273 1078296 1079831 1080086 1081109 1082388 1082642 1083664 1085455 1087758 1095693 1097483 1099786 1100297 1101063 1102342 1102852 1103875 1105360 1105154 1105665 1106432 1279888 1279816 1279744 1281089 1281024 1282117 1282048